From: Michael Albinus Date: Sat, 12 Dec 2009 19:18:33 +0000 (+0000) Subject: * net/dbus.el (dbus-property-handler): Filter lambda forms out X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~8946 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5a4d4f559df20298838d1d7a53d85964e78466e1;p=emacs.git * net/dbus.el (dbus-property-handler): Filter lambda forms out when responding to "GetAll" properties. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 194d70a6c6a..50555bb1c69 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-12-12 Michael Albinus + + * net/dbus.el (dbus-property-handler): Filter lambda forms out + when responding to "GetAll" properties. + 2009-12-12 Chong Yidong * simple.el (compose-mail): Remove mail-setup-with-from from diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el index 49abca0ac38..2a1bd043080 100644 --- a/lisp/net/dbus.el +++ b/lisp/net/dbus.el @@ -954,7 +954,7 @@ It will be registered for all objects created by `dbus-register-object'." (lambda (key val) (when (and (equal (butlast key) (list bus interface)) (string-equal path (nth 2 (car val))) - (consp (car (last (car val))))) + (not (functionp (car (last (car val)))))) (add-to-list 'result (list :dict-entry